99 REM@ S 1024
110 POKE56,112:CLR:POKE650,128:D=RND(-TI)
120 D=8:MB=32768:BOX=MB+3:IP=MB+198:CE=MB+78:BR=MB+99:AT=MB+75:GW=MB+51
125 PARAMETERS=828:PH=INT(PA/256):PL=PAR-256*PH
126 FT=120*256:FH=INT(FT/256):FL=FT-256*FH
130 FR=MB+6:SH=MB+96:DIMC(7),T%(128,1),TR%(74),SE%(75):L1=15:L2=12
140 C(0)=15:C(1)=13:C(2)=7:C(3)=3:C(4)=14:C(5)=4:C(6)=10:C(7)=8
145 FORI=0TO126:READT%(I,0),T%(I,1)
146 IFT%(I,0)>60THENT%(I,0)=0
147 IFT%(I,1)>60THENT%(I,1)=0
148 NEXT
160 PRINT"([195]) 1997 BY [202]&[198] [208]UBLISHING":GOSUB6690:PRINT""
165 PRINT"([195]) 1997 BY [202]&[198] [208]UBLISHING"
170 T$="[196][201][210][197][195][212][207][205][197][201][211][212][197][210] [201][201][201]"
180 GOSUB930
190 IFD>7THENT$=T$+" - [196]EVICE:"+STR$(D)
200 A$(01)="[211]ELECT [196]EVICE [206]UMBER  (#)"
210 A$(02)="[194]ATCH [210][197][206][193][205][197] [198]ILES    (R)"
220 A$(03)="[194]ATCH [196][197][204][197][212][197] [198]ILES    (D)"
230 A$(04)="[194]ATCH [208]REFIX [206]AMES    (P)"
240 A$(05)="[194]ATCH [196]E-[208]REFIX [206]AMES ([208])"
260 A$(06)="[197]DIT [196]IRECTORY        (E)"
270 A$(07)="[211]END [196]ISK [195]OMMAND     (@)"
280 A$(08)="[212][210][193][195][197] [198]ILE [204]INKS      (T)"
290 A$(09)="[198][204][213][211][200] [196][197][204] [198]ILES       (F)"
300 A$(08)="[210]ETURN TO [204][207][193][196][211][212][193][210]    (Q)"
310 HOTKEY$=CHR$(255)+"#RDP[208]E@Q"
320 NI=8:GOSUB5000:F%=IT:GOSUB930
330 IFF%=12THENGOSUB930
340 ONF%GOSUB350,490,600,680,780,6000,9500,1080:GOTO170
350 NI=1:FORX=8TO29
360 IFX<>14THENOPEN2,X,2:CLOSE2
370 IFST=0THENA$(NI)="("+MID$(STR$(NI),2)+") [196]RIVE "+STR$(X):NI=NI+1
380 NEXT:A$(NI)="([209]) [196]ON'T CHANGE DRIVE "
385 HOT$="1234567":HOT$=CHR$(255)+LEFT$(HOT$,NI-1)+"Q"
390 T$="[211][197][210][201][193][204] [196][197][214][201][195][197] [205][197][206][213]":GOSUB5000:IFIT=NITHENRETURN
400 D=VAL(MID$(A$(F%),10)):RETURN
490 MODE=1:A$="[194]ATCH [210]ENAME":GOSUB2000:GOSUB1030
500 CH=0:A$="[208]ROCESSING...":GOSUB910
510 FORJJ=0TOFILES-1:ITEM=JJ:GOSUB3500:IFF%=0THEN580
520 F$=W$:CH=CH+1
530 X1=2:X2=37:Y1=22:Y2=22:SC=32:BC=7:GOSUB2200:POKE199,0:POKE646,3
540 X=2:Y=22:GOSUB2300:PRINTF$" = ";:TX=1:CU=4:LIMIT=16:GOSUB2500
550 IFW$=F$THEN580
555 IFW$=""THEN580
560 CLOSE15:OPEN15,D,15,"R0:"+W$+"="+F$:GOSUB1070:IFVAL(E$)=0THEN580
570 A$=C$+"! [211]KIP/[210]ETRY/[209]UIT":K$="SRQ":GOSUB920:ONF%GOTO580,520,590
580 NEXT:IFCHTHENGOSUB2100
585 RETURN
590 I=FILES:GOTO580
600 A$="[194]ATCH [196]ELETE":GOSUB2000:MODE=1:GOSUB1030
610 CH=0:A$="[193]RE YOU SURE? ([217]/[206])":K$="YN":GOSUB920:IFF%=2THENRETURN
620 A$="[208]ROCESSING...":GOSUB910
630 FORJJ=0TOFILES-1:IT=JJ:GOSUB3500:IFF%=0THEN660
640 CH=CH+1:CLOSE15:OPEN15,D,15,"S0:"+W$:GOSUB1070:IFVAL(E$)=1THEN660
650 A$=C$+"! [211]KIP/[210]ETRY/[209]UIT":K$="SRQ":GOSUB920:ONF%GOTO660,640,670
660 NEXT:IFCHTHENGOSUB2100
665 RETURN
670 I=FILES:GOTO660
680 CH=0:A$="[194]ATCH [208]REFIX":GOSUB2000:MODE=1:GOSUB1030
690 X1=2:X2=37:Y1=22:Y2=22:SC=32:BC=7:GOSUB2200:POKE199,0:POKE646,3
700 X=4:Y=22:GOSUB2300:PRINT"[208]REFIX: ";:TE=1:CU=4:LI=15:W$="":GOSUB2500
705 IFW$=""THENRETURN
710 P$=W$:A$="[208]ROCESSING...":GOSUB910
720 FORJJ=0TOFILES-1:IT=JJ:GOSUB3500:IFF%=0THEN760
730 F$=W$:CH=CH+1
740 CLOSE15:OPEN15,D,15,"R0:"+P$+W$+"="+F$:GOSUB1070:IFVAL(E$)=0THEN760
750 A$=C$+"! [211]KIP/[210]ETRY/[209]UIT":K$="SRQ":GOSUB920:ONF%GOTO760,740,770
760 NEXT:IFCHTHENGOSUB2100
765 RETURN
770 I=FILES:GOTO760
780 CH=0:A$="[194]ATCH [196]E-[208]REFIX":GOSUB2000:MODE=1:GOSUB1030
790 X1=2:X2=37:Y1=22:Y2=22:SC=32:BC=7:GOSUB2200:POKE199,0:POKE646,3
800 X=3:Y=22:GOSUB2300:PRINT"[210]EMOVE PREFIX: ";
805 W$="":TE=1:CU=4:LI=15:GOSUB2500:IFW$=""THENRETURN
810 P$=W$:A$="[208]ROCESSING...":GOSUB910
820 FORJJ=0TOFILES-1:IT=JJ:GOSUB3500:IFF%=0THEN880
830 F$=W$:CH=CH+1
840 IFLEFT$(F$,LEN(P$))<>P$THEN880
850 DP$=MID$(F$,LEN(P$)+1)
860 CLOSE15:OPEN15,D,15,"R0:"+DP$+"="+F$:GOSUB1070:IFVAL(E$)=0THEN880
870 A$=C$+"! [211]KIP/[210]ETRY/[209]UIT":K$="SRQ":GOSUB920:ONF%GOTO880,840,890
880 NEXT:IFCHTHENGOSUB2100
885 RETURN
890 I=FILES:GOTO880
900 STOP
910 X1=2:X2=37:Y1=22:Y2=22:SC=160:BC=7:GOSUB2200:POKE199,1:POKE646,7
915 POKE211,20-(LEN(A$)/2):POKE214,22:SYS58732:PRINTA$:RETURN
920 GOSUB910:GOSUB3100:RETURN
930 T=T%(TC,0):C=95:GOSUB2900:CC=CC+1:IFCC>6THENCC=0
935 L1=C(CC):L2=C(CC+1)
940 T=T%(TC,1):C=105:GOSUB2900:C1=95:C2=95:C=L1:GOSUB3000
945 TC=TC+1:IFTC=127THENTC=0
950 A=105:B=105:C=L2:GOSUB3600
955 A=95:B=95:C=L1:GOSUB3600
960 RETURN
970 STOP
980 SYSIP,T$,7,A$,B$,C$,D$,E$,F$,G$,L$:GOSUB930:SO=F%
990 IFF%=7THENRETURN
1020 REM GET REGULAR DIR FROM SELECTED DIVICE
1030 A$="[199]ETTING DIRECTORY...":GOSUB910
1040 DI$="$:*":LOC=40960:GOSUB3300:FILES=F%
1045 X1=3:X2=33:Y1=8:Y2=20:GOSUB2800:X1=4:X2=35:Y1=5:Y2=19:FC=7:GOSUB2600
1050 A$="[195][210][211][210]/[210][197][212][213][210][206] TO [211]ELECT"
1052 IFMODETHENA$="[210][197][212][213][210][206] ADD FILE   +- PAGE    [198]1 DONE
1055 [139]MODE[178]2[167]A$[178]"(null)HEN DONE VIEWING, ASC1 EXITS"
1060 [141]910:X[178]5:Y1[178]6:Y2[178]18:MR[178]0:MC[178]3:MH[178]13:MS[178]1:[141]3400:[142]
1070 [132]15,B$,C$,D$,E$:E$[178]B$[170]","[170]C$[170]","[170]D$[170]","[170]E$:[142]
1080 [141]6710:[129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
1090 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]1110
1100 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
1110 A$[178]"PRESENTER":[141]1120:A$[178]"HELLO CONNECT"
1120 [129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
1130 [160]2:[159]2,I,2:[160]2:[139]ST[167]1150
1140 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]1170
1150 [130]:[139]A$[178]"PRESENTER"[167][142]
1160 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
1170 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
1180 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
1190 [153]"P(null)53272,23:RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
2000 X1[178]4:X2[178]35:Y1[178]3:Y2[178]3:SC[178]160:BC[178]7:[141]2200:[153]"SYS";
2010 [151]214,3:[151]211,20[171]([195](A$)[173]2):[158]58732:[153]A$:[142]
2100 X1[178]0:X2[178]39:Y1[178]0:Y2[178]24:SC[178]255:BC[178]15:[141]2200
2110 A$[178]"(null)EVIEW LENHANGED STR$IRECTORY":[141]2000:MODE[178]2:[141]1030:[142]
2199 [143] BOX
2200 [151]PARMS,X1:[151]PARMS[170]1,X2:[151]PARMS[170]2,Y1:[151]PARMS[170]3,Y2:[151]PARMS[170]4,SC
2210 [151]PARMS[170]5,BC:[151]781,PL:[151]782,PH:[158]MB[170]105:[142]
2299 [143] MOVE CURSOR
2300 [151]211,X:[151]214,Y:[158]58732:[142]
2499 [143] GETWORD
2500 [151]PA,TX:[151]PA[170]1,CURS:[151]PA[170]2,LIMIT:[151]PA[170]3,[195](W$)
2510 [129]I[178]1[164][195](W$)
2520 [151]PAR[170]3[170]I,[198]([202](W$,I,1)[170][199](0)):[130]:[151]PA[170]3[170]I,0
2530 [151]781,PL:[151]782,PH:[158]MB[170]150:W$[178]"":GL[178][194](780):[139]GL[178]0[167]:[142]
2540 N[178][194](782)[172]256[170][194](781):[129]I[178]1[164]GL:W$[178]W$[170][199]([194](N[171]1[170]I)):[130]
2550 [142]
2599 [143] FRAME
2600 [151]PARMS,X1:[151]PARMS[170]1,X2:[151]PARMS[170]2,Y1:[151]PARMS[170]3,Y2:[151]PARMS[170]4,FC
2610 [151]781,PL:[151]782,PH:[158]MB[170]108:[142]
2699 [143] LATTICE
2700 [151]PARMS,X1:[151]PARMS[170]1,X2:[151]PARMS[170]2,Y1:[151]PARMS[170]3,Y2:[151]PARMS[170]4,S1
2710 [151]PA[170]5,S2:[151]PA[170]6,C1:[151]PA[170]7,C2:[151]781,PL:[151]782,PH:[158]MB[170]102:[142]
2799 [143] SHADE
2800 [151]PARMS,X1:[151]PARMS[170]1,X2:[151]PARMS[170]2,Y1:[151]PARMS[170]3,Y2
2810 [151]781,PL:[151]782,PH:[158]MB[170]192:[142]
2899 [143] COPY TILE
2900 [151]PA,FL:[151]PA[170]1,FH:[151]PA[170]2,T:[151]PA[170]3,C
2910 [151]781,PL:[151]782,PH:[158]MB[170]111:[142]
2999 [143] CHAR SWAP
3000 [151]PARMS,C1:[151]PARMS[170]1,C2:[151]PARMS[170]2,C
3010 [151]781,PL:[151]782,PH:[158]MB[170]186:[142]
3099 [143] BRANCHER
3100 K$[178]K$[170][199](0):[129]I[178]1[164][195](K$):[151]PA[171]1[170]I,[198]([202](K$,I,1)):[130]
3105 [151]781,PL:[151]782,PH
3110 [158]MB[170]195:ITEM[178][194](253)
3120 [142]
3199 [143] SCREEN TO MENU
3200 [151]PA,Y:[151]PA[170]1,X1:[151]PA[170]2,X2:[151]PA[170]3,MI:[151]PA[170]4,MC:[151]PA[170]5,MH
3205 [139][201](HOT$,1)[179][177][199](0)[167]HO$[178]HO$[170][199](0)
3210 [151]PA[170]6,[195](HOT$)
3220 [129]I[178]1[164][195](HOT$):[151]PA[170]6[170]I,[198]([202](HOT$,I,1)):[130]
3230 [151]781,PL:[151]782,PH:[151]34,PL:[151]35,PH:[158]MB[170]162:IT[178][194](253):F%[178]IT
3240 [142]
3299 [143] GET DIRECTORY SET DIR$ AND LOC
3300 [129]I[178]1[164][195](DIR$):[151]PA[171]1[170]I,[198]([202](DIR$,I,1)):[130]:I[178]I[171]1
3310 [151]PA[170]I,D:[151]PA[170]I[170]2,[181](LOC[173]256):[151]PA[170]I[170]1,LOC[171](256[172][194](PA[170]I[170]2))
3320 [151]781,PL:[151]782,PH:[151]780,[195](DI$):[158]MB[170]138:F%[178][194](254)[172]256[170][194](253)
3330 F%[178]F%[170]1:[142]
3399 [143] FILE REQUESTOR
3400 [151]PA,X:[151]PA[170]1,Y1:[151]PA[170]2,Y2:[151]PA[170]3,MR:[151]PA[170]4,MC:[151]PA[170]5,MH
3410 [151]PA[170]6,MS:[151]PA[170]7,MODE
3420 [151]781,PL:[151]782,PH:[151]780,[195](DI$):[158]MB[170]144:[139]MODE[167][142]
3430 W$[178]"":GL[178][194](780):[139]GL[178]0[167]:[142]
3440 N[178][194](782)[172]256[170][194](781):[129]I[178]1[164]GL:W$[178]W$[170][199]([194](N[171]1[170]I)):[130]:[142]
3499 [143] INDEX ITEMS
3500 [151]782,ITEM[173]256:[151]781,ITEM[171]256[172][194](782):[158]MB[170]132
3510 W$[178]"":GL[178][194](780):[139]GL[178]0[167]3530
3520 N[178][194](782)[172]256[170][194](781):[129]I[178]1[164]GL:W$[178]W$[170][199]([194](N[171]1[170]I)):[130]
3530 F%[178][194](254)[172]256[170][194](253):[142]
3599 [143] CHAR SWAP
3600 [151]PA,A:[151]PA[170]1,B:[151]PA[170]2,C
3610 [151]781,PL:[151]782,PH:[158]MB[170]186:[142]
3699 [143] SCROLL DOWN
3700 [151]PARMS,X1:[151]PARMS[170]1,X2:[151]PARMS[170]2,Y1:[151]PARMS[170]3,Y2
3710 [151]781,PL:[151]782,PH:[158]MB[170]117:[142]
3799 [143] SCROLL UP
3800 [151]PARMS,X1:[151]PARMS[170]1,X2:[151]PARMS[170]2,Y1:[151]PARMS[170]3,Y2
3810 [151]781,PL:[151]782,PH:[158]MB[170]120:[142]
4000 [151]782,(O[170]OF)[173]256:[151]781,(O[170]OF)[171][194](782)[172]256:[158]49152[170]15:M[178][194](780)
4002 BC[178]14:[139]M[167]BC[178]13
4005 X1[178]FX:X2[178]F2:Y1[178]FY[170]OF:Y2[178]Y1:SC[178]255:[141]2200
4006 [151]782,(O[170]F)[173]256:[151]781,(O[170]F)[171][194](782)[172]256:[158]49152[170]15:M[178][194](780)
4007 BC[178]7:[139]M[167]BC[178]1
4010 X1[178]FX:X2[178]F2:Y1[178]FY[170]F:Y2[178]Y1:SC[178]255:[141]2200:[142]
4999 [143] INSTANT PAGE
5000 [151]53280,0:[151]53281,0:X1[178]0:X2[178]39:Y1[178]0:Y2[178]24:FC[178]14:[141]2600:[143] FRAME
5010 X1[178]1:X2[178]38:Y1[178]1:Y2[178]23:S1[178]95:S2[178]105:C1[178]L1:C2[178]L2:[141]2700:[143] LATTICE
5020 X1[178]3:X2[178]36:Y1[178]2:Y2[178]4:FC[178]7:[141]2600
5030 X1[178]4:X2[178]35:Y1[178]3:Y2[178]3:SC[178]160:BC[178]1:[141]2200
5040 [151]214,3:[151]211,20[171]([195](T$)[173]2):[158]58732:[151]199,1:[151]646,1:[153]T$
5050 A[178]0:[129]I[178]1[164]NI:[139][195](A$(I))[177]A[167]A[178][195](A$(I)):[143] FIND LONGEST ITEM
5060 [130]
5070 X1[178]20[171](A[173]2)[171]3:X2[178]X1[170]A[170]3:Y1[178]15[171](NI[173]2)[171]3:Y2[178]Y1[170]NI[170]3:[141]2800
5075 X1[178]X1[170]1:X2[178]X2[170]1:Y1[178]Y1[171]1:Y2[178]Y2[171]1:[141]2600
5080 X1[178]X1[170]1:X2[178]X2[171]1:Y1[178]Y1[170]1:Y2[178]Y2[171]1:SC[178]160:BC[178]3:[141]2200
5090 MY[178]Y1:MX[178]X1[170]1:M2[178]X2:[129]I[178]1[164]NI:X[178]MX:Y[178]MY[170]I:[141]2300:[151]646,3:[151]199,1
5100 [153]A$(I):[130]
5110 [139]MS$[178]""[167]A$[178]"LEN(null)(null)(null)/(null)VAL(null)(null)(null)(null) (null)O (null)ELECT":[137]5120
5115 A$[178]MS$:MS$[178]""
5120 [141]910
5130 MI[178]NI:Y[178]MY[170]1:X1[178]MX[171]1:X2[178]M2:MC[178]3:MH[178]1:[141]3200:[142]
5199 [143] OPEN DIRECT ACCESS
5200 [160]15:[160]2:[159]15,D,15:[159]2,D,2,"#":[142]
5299 [143] READ BLOCK
5300 [152]15,"U1";2;0;TRACK;SECTR
5310 [151]780,NB:[158]49152:[141]5500:[142]
5399 [143] DETERMINE DRIVE
5400 [160]2:[160]15:[159]15,D,15,"I":[159]2,D,2,"$:*":[161]#2,A$,B$
5402 [129]I[178]2[164]32:[161]#2,TL$:[130]:[161]#2,SL$
5405 [141]5500:[160]2:[160]15
5410 [139][197](E$)[167]A$[178]E$:K$[178][199](13)[170]" CLOSE _^":[141]920:[142]
5420 [139]A$[178]"A"[167]TR[178]18:SE[178]0:D$[178]"1541":[139]B$[178][199](128)[167]D$[178]"1571
5430 IFA$="D"THENTR=40:SE=0:D$="1581":RETURN
5440 IFA$="H"THENTR=1:SE=1:D$="CMD NATIVE":RETURN
5450 RETURN
5499 REM READ ERROR CHANNEL
5500 INPUT#15,E1$,E2$,E3$,E4$:E$=E1$+","+E2$+","+E3$+","+E4$:RETURN
6000 GOSUB5400:IFVAL(E$)THENA$="[208]LEASE INSERT FORMATTED DISK":GOTO920
6010 A$="[199]ETTING DIRECTORY INFORMATION...":GOSUB910
6020 GOSUB5200:NB=0:GOSUB5300
6030 TR=PEEK(781):SE=PEEK(782):TR%(NB)=TR:SE%(NB)=SE
6035 IFTR<>0ANDSE<>255THENNB=NB+1:GOSUB5300:GOTO6030
6040 CLOSE2:CLOSE15
6050 REM T=79:C=95:GOSUB2900:T=64:C=105:GOSUB2900
6060 X1=1:X2=38:Y1=5:Y2=23:S1=95:S2=105:C1=12:C2=1:GOSUB2700
6070 A=95:B=95:C=12:GOSUB3600
6080 A=105:B=105:C=1:GOSUB3600
6090 X1=2:X2=X1+33:Y1=7:Y2=Y1+10:GOSUB2800
6100 X1=X1+1:X2=X2+1:Y1=Y1-1:Y2=Y2-1:FC=15:GOSUB2600
6110 X1=X1+1:X2=X2-1:Y1=Y1+1:Y2=Y2-1:SC=160:BC=14:GOSUB2200
6120 X=X1:Y=Y1:GOSUB2300:PRINT"[155] [212][217][208][197] [212][210][193] [211][197][195] [198][201][204][197] [206][193][205][197]         ";
6130 POKE646,BC:POKE199,1:FY=Y1+1:FX=X1:F2=X2:FF=Y2
6140 FORI=0TO7:X=X1+1:Y=Y1+1+I:GOSUB2300:POKE782,I/256:POKE781,I-PEEK(782)*256
6150 SYS49152+6:NEXT
6160 X1=1:X2=X1+35:Y1=20:Y2=Y1+3:GOSUB2800
6170 X1=X1+1:X2=X2+1:Y1=Y1-1:Y2=Y2-1:FC=15:GOSUB2600
6180 X1=X1+1:X2=X2-1:Y1=Y1+1:Y2=Y2-1:SC=160:BC=15:GOSUB2200
6190 GOSUB6640:POKE787,0:F=0:O=0:OF=0:FM=0:SYS49152+9:GOSUB4000
6200 GETA$:IFA$=""THEN6200
6210 IFA$="Q"THENRETURN
6220 IFA$=""THENGOSUB6390:GOTO6200
6230 IFA$="[145]"THENGOSUB6470:GOTO6200
6240 IFA$=""ORA$="+"THENFORJ=1TO8:GOSUB6390:NEXT:GOTO6200
6250 IFA$="[157]"ORA$="-"THENFORJ=1TO8:GOSUB6470:NEXT:GOTO6200
6260 IFA$=CHR$(13)ORA$=" "THENGOSUB6560:IFPEEK(787)=255THEN6050
6270 IFA$="[133]"THENIFPEEK(787)THENPOKE787,0:GOSUB6640:GOTO6200
6280 IFPEEK(787)THEN6200
6290 IFA$="M"THENIFFMTHENGOSUB7000
6300 IFA$="[196]"THENJ=0:GOSUB6610:GOTO6200
6302 IFA$<>"E"THEN6310
6303 GOSUB8500:IFJ<>6THEN6200
6304 X1=1:X2=38:Y1=19:Y2=23:S1=95:S2=105:C1=12:C2=1:GOSUB2700:GOTO6010
6310 IFA$="S"THENJ=1:GOSUB6610:GOTO6200
6320 IFA$="P"THENJ=2:GOSUB6610:GOTO6200
6330 IFA$="U"THENJ=3:GOSUB6610:GOTO6200
6340 IFA$="R"THENJ=4:GOSUB6610:GOTO6200
6350 IFA$="D"THENJ=6:GOSUB6610:GOTO6200
6360 IFA$=""THENIFF<>0THENOF=F:F=0:GOSUB4000:GOTO6200
6370 IFA$=""THENIFF=0THENO=0:GOSUB6800:GOSUB4000
6372 IFA$="F"THENGOSUB6900:GOTO6050
6374 IFA$="W"THENGOSUB8000:GOTO6050
6380 GOTO6200
6390 OF=F:F=F+1:IFF>7THENF=7:GOSUB6410
6400 GOSUB4000:RETURN
6410 IF(F+O)>=NB*8-1THENRETURN
6420 BC=14:IFMTHENBC=13
6430 X1=FX:X2=F2:Y1=FY+OF:Y2=Y1:SC=255:GOSUB2200
6440 O=O+1:X1=FX:X2=F2:Y1=FY:Y2=FF:GOSUB3700:POKE781,160:POKE782,14
6450 SYSMB+123:PRINT"[154]";:N=O+F:POKE782,N/256:POKE781,N-PEEK(782)*256
6460 SYS49152+6:RETURN
6470 OF=F:F=F-1:IFF<0THENF=0:GOSUB6490
6480 GOSUB4000:RETURN
6490 IF(F+O)=0THENRETURN
6500 POKE782,(O+OF)/256:POKE781,(O+OF)-PEEK(782)*256:SYS49152+15:M=PEEK(780)
6510 BC=14:IFMTHENBC=13
6520 X1=FX:X2=F2:Y1=FY+OF:Y2=Y1:SC=255:GOSUB2200
6530 O=O-1:X1=FX:X2=F2:Y1=FY:Y2=FF:GOSUB3800:POKE781,160:POKE782,14
6540 SYSMB+123:PRINT"[154]";:N=O+F:POKE782,N/256:POKE781,N-PEEK(782)*256
6550 SYS49152+6:RETURN
6560 IFPEEK(787)THEN7100
6570 POKE782,(F+O)/256:POKE781,(F+O)-PEEK(782)*256:SYS49152+12:GOSUB4000
6580 IFA$=CHR$(13)THENPOKE198,1:POKE631,ASC("")
6590 IFMTHENFM=FM+1:RETURN
6600 FM=FM-1:RETURN
6610 POKE214,FY+F:POKE211,FX+1:SYS58732:POKE199,1
6620 PRINT"[158]   [157][157][157]";:POKE646,PEEK(PEEK(244)*256+PEEK(243)+FX+6)
6630 POKE782,(O+F)/256:POKE781,(O+F)-PEEK(782)*256:POKE780,J:SYS49152+30:RETURN
6640 X1=3:X2=36:Y1=20:Y2=21:SC=160:BC=15:GOSUB2200:POKE199,1
6650 POKE211,X1+1:POKE214,Y1:SYS58732
6660 PRINT"[155] [195][210][211][210]/[210][197][212][213][210][206][155] [211]ELECT [205][155]OVE [197]NTRIES
6670 [153]" (null)LIST,(null)LIST,(null)LIST,(null)LIST,STR$LIST,DLIST (null)YPE ASCLISTLUSH (null)LISTRITE (null)LISTUIT
6680 RETURN
6690 A=2:B=192:C=12:POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)ORA
6700 POKE648,112:POKE53272,207:RETURN
6710 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3
6720 POKE648,4
6730 POKE53272,23:RETURN
6800 X1=4:X2=35:Y1=8:Y2=15:SC=160:BC=14:GOSUB2200
6810 FORI=0TO7:X=FX+1:Y=FY+I:GOSUB2300:POKE782,I/256:POKE781,I-PEEK(782)*256
6820 SYS49152+6:NEXT:RETURN
6900 GOSUB6940
6904 FM=0:FORI=0TONB*8:POKE782,I/256:POKE781,I-PEEK(782)*256:SYS49152+15
6905 IFPEEK(780)THENPOKE782,I/256:POKE781,I-PEEK(782)*256:SYS49164
6910 POKE782,I/256:POKE781,I-PEEK(782)*256:SYS49152+39:J=PEEK(780)
6911 IFJ<129THENJ=0
6915 IFJ=0THENPOKE782,I/256:POKE781,I-PEEK(782)*256:SYS49164:FM=FM+1
6920 NEXT:IFFM=0THENRETURN
6930 IP=NB*8:GOSUB7102:RETURN
6940 X1=3:X2=36:Y1=20:Y2=21:SC=160:BC=1:GOSUB2200:POKE199,1
6950 POKE211,X1+1:POKE214,Y1:SYS58732
6960 PRINT"[155][205]OVING ALL [196][197][204] FILES TO BOTTOM
6970 [153]" (null)LEASE WAIT...
6980 RETURN
7000 X1=3:X2=36:Y1=20:Y2=21:SC=160:BC=1:GOSUB2200
7010 POKE211,X1+1:POKE214,Y1:SYS58732:PRINT"[205]OVE CURSOR TO INSERTION POINT
7020 [153]"PRESS (null)VAL(null)(null)(null)(null). ASC1 LENANCELS"
7030 [151]787,119:[142]
7100 IP[178]F[170]O
7102 [141]7800:[151]782,IP[173]256:[151]781,IP[171][194](782)[172]256
7105 [151]780,NB:[158]49152[170]36:[142]
7110 [151]782,M[173]256:[151]781,M[171][194](782)[172]256:[158]49152[170]15
7115 [139][194](780)[178]0[167]7170
7116 [141]7300:[143] CUT
7130 [129]N[178]NB[172]8[171]1[164]IP[169][171]1:[151]782,N[173]256:[151]781,N[171][194](782)[172]256:[158]49152[170]21
7140 [151]782,(N[170]1)[173]256:[151]781,(N[170]1)[171][194](782)[172]256:[158]49152[170]27
7142 [151]MA[170]N[170]1,[194](MA[170]N)
7149 [130]N
7150 [151]782,IP[173]256:[151]781,IP[171][194](782)[172]256:[158]49152[170]24:IP[178]IP[170]1
7170 [130]M:[151]787,255:[142]
7300 [151]782,M[173]256:[151]781,M[171][194](782)[172]256:[158]49152[170]18
7310 [129]N[178]M[170]1[164]NB[172]8
7320 [151]782,N[173]256:[151]781,N[171][194](782)[172]256:[158]49152[170]21
7330 [151]782,(N[171]1)[173]256:[151]781,(N[171]1)[171][194](782)[172]256:[158]49152[170]27
7335 [151]MA[170]N[171]1,[194](MA[170]N)
7340 [130]N
7350 [139]IP[177]M[167]IP[178]IP[171]1
7360 [142]
7400 [141]7700:[143] FINF LOWEST SELECTION
7700 J[178][171]1:A[178][171]1:[129]I[178]0[164]NB[172]8:[151]782,I[173]256:[151]781,I[171][194](782)[172]256:[158]49152[170]15
7710 [139][194](780)[167][139]J[178][171]1[167]J[178]I
7720 [130]:[129]I[178]NB[172]8[171]1[164]0[169][171]1:[151]782,I[173]256:[151]781,I[171][194](782)[172]256:[158]49152[170]15
7730 [139][194](780)[167][139]A[178][171]1[167]A[178]I
7740 [130]:[142]
7800 [151]782,IP[173]256:[151]781,IP[171][194](782)[172]256:[158]49152[170]15
7810 [139][194](780)[167][151]782,IP[173]256:[151]781,IP[171][194](782)[172]256:[158]49164
7820 [142]
8000 X1[178]3:X2[178]36:Y1[178]20:Y2[178]21:SC[178]160:BC[178]1:[141]2200
8010 [151]211,X1[170]1:[151]214,Y1:[158]58732
8020 [153]"STR$(null) (null)(null)(null) (null)VAL(null)(null)(null)VAL STR$RIGHT$(null)(null) STR$(null)(null)RIGHT$(null)CHR$ (null)(null)RIGHT$(null)VAL!"
8030 [153]"(null)RESS (null)(null)ATNLENVAL (null)O (null)RITE. (null) LENANCELS":SC[178]255
8040 [161]A$:[139]A$[178]" "[167]8200
8045 [139]A$[179][177]""[167][142]
8050 [139]A$[178]""[167][139]TI[179]15[167]8040
8060 [139]BC[178]15[167]BC[178]1:[141]2200:TI$[178]"000000":[137]8040
8070 [139]BC[178]1[167]BC[178]15:[141]2200:TI$[178]"000000":[137]8040
8200 X1[178]3:X2[178]36:Y1[178]21:Y2[178]21:SC[178]160:BC[178]1:[141]2200
8210 [151]211,X1[170]1:[151]214,Y1:[158]58732
8230 [153]"(null)OW (null)RITING TO YOUR DISK..."
8240 [160]15:[160]2:[159]15,D,15:[159]2,D,2,"#":[158]49152[170]3:[160]2:[160]15:[142]
8250 TR[178][194](51200):SE[178][194](51201)
8260 B[178]1:BL[178]51200[170]256
8270 [152]15,"U2";2;0;TR%(B[171]1);SE%(B[171]1)
8273 [153]B;BL;TR%(B[171]1);SE%(B[171]1)
8275 [151]782,BL[173]256:[151]781,BL[171][194](782)[172]256
8280 [158]49152[170]3
8290 [139]B[179]NB[167]B[178]B[170]1:BL[178]BL[170]256:[137]8270
8300 [160]1:[160]15:[160]2:[128]
8500 [151]782,(O[170]F)[173]256:[151]781,(O[170]F)[171][194](782)[172]256:[158]49152[170]39:J[178][194](780)[175]127
8510 [139]J[178]6[167]TR[178][194](781):SE[178][194](782)
8520 [142]
9500 X1[178]2:X2[178]37:Y1[178]22:Y2[178]22:SC[178]32:BC[178]7:[141]2200:[151]199,1:[151]646,7
9510 [151]214,Y1:[151]211,X1:[151]199,0:[158]58732:[153]"@";
9520 [160]15:TX[178]1:CU[178]4:LIMIT[178]16:W$[178]"":[141]2500:[139]W$[179][177]""[167]9540
9530 [159]15,D,15:[141]5500:A$[178]E$:K$[178]" ONCMD_^"[170][199](13):[141]920:[160]15:[142]
9540 [160]15:[159]15,D,15,W$:[141]5500
9550 A$[178]E$:K$[178]" ONCMD_^"[170][199](13):[141]920:[160]15:[137]9500
10000 [131]41,70,0,54,32,35,81,67,98,16,57,69,82,46,7,3,59,66,57,64,87,73
10010 [131]39,25,79,64,59,14,80,82,21,35,97,27,4,76,40,50,19,34
10020 [131]5,76,78,50,23,41,71,76,8,77,70,76,71,35,50,61,78,35,19,67
10030 [131]19,25,82,30,58,62,33,31,71,77,50,50,0,81,73,7,56,72,79,40,78,0
10040 [131]9,39,77,76,33,41,0,17,77,22,97,22,56,69,76,13,77,77,0,0,64,12,76,55
10050 [131]71,9,72,10,76,0,70,76,70,75,24,26,99,31,98,30,63,59,3,61,16,20
10060 [131]71,19,76,77,79,35,77,0,71,11,50,79,0,6,71,34,19,86,76,12,25,5,90,90
10070 [131]67,54,84,27,75,77,49,62,54,28,46,21,65,11,55,62,33,57,73,35,22,3
10080 [131]72,35,92,7,76,28,55,55,19,25,92,7,86,49,72,10,85,23,77,12,56,93,77,22
10090 [131]78,37,56,51,54,34,50,56,72,76,78,98,55,35,71,72,78,48,71,77
10100 [131]25,91,52,33,72,71,77,48,76,16,71,20,78,50,78,78,91,25,71,19,99,37
10110 [131]3,43,76,0,71,69,77,49,72,10,39,47,47,78
11000 [129]I[178]3[164]30:[159]1,9,1,"FILE"[170][196](I):[160]1:[130]